﻿Public Class BEestadoMuestra
#Region "Declaración de variables"

    Private codEstadoMuestra As Integer
    Private descripcion As String

#End Region

    Sub New()
    End Sub

    Sub New(ByVal pcodEstadoMuestra As Object, _
            ByVal pDescripcion As Object)

        Me._codEstadoMuestra = pcodEstadoMuestra
        Me._descripcion = pDescripcion
    End Sub


    Public Property _codEstadoMuestra() As Integer
        Get
            Return Me.codEstadoMuestra
        End Get
        Set(ByVal value As Integer)
            Me.codEstadoMuestra = value
        End Set
    End Property

    Public Property _descripcion() As String
        Get
            Return Me.descripcion
        End Get
        Set(ByVal value As String)
            Me.descripcion = value
        End Set
    End Property

End Class
